home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 November / EnigmA AMIGA RUN 02 (1995)(G.R. Edizioni)(IT)[!][issue 1995-11][Skylink CD].iso / earcd / ear / archandl.lha / ARCHandler / Scripts / ToARC.dopus < prev   
Text File  |  1994-12-31  |  361b  |  20 lines
  1. /* Change DirectoryOpus directory from directory on Archives:
  2. ** to original directory. */
  3.  
  4. options results
  5.  
  6. status 13 "-1"
  7. dir=result
  8.  
  9. getnextselected "-1"
  10. file=result
  11. if file~=0 then dir=dir || result
  12.  
  13. dir=strip(dir,'B','"')
  14. i=index(dir,':')
  15. if i~=0 then
  16.   do
  17.     dir="Archives:" || left(dir,i-1) || '/' || substr(dir,i+1)
  18.     ScanDir '"' || dir || '"'
  19.   end
  20.